home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / LANGUES / doggy2002.cst / 00391_Script_gestionnaires son < prev    next >
Text File  |  2002-08-06  |  820b  |  36 lines
  1. -- Gestionnaires son
  2.  
  3. global nivSon, dernierSon
  4. global pisteFondMascotte
  5.  
  6. on joueSonMP3 nom, n
  7.   if the paramCount = 1 then
  8.     n = 3
  9.   end if
  10.   if voidP(nivSon)=1 then
  11.     nivSon=[255,255,255]
  12.   end if
  13.   -- ajout Θventuel de "sons:"
  14.   if char 1 to 9 of nom <> "sons" then
  15.     if offset(":", nom) = 0 then
  16.       nom = "sons:" & nom
  17.     end if
  18.   end if
  19.   dernierSon = nom
  20.   --
  21.   put the pathName & nomDos(nom) & ".swa" into nom
  22.   put "  Son jouΘ : " & dernierSon
  23.   sound playFile n, nom
  24.   -- rΘglage du niveau des autres canaux
  25.   repeat with i=1 to 3
  26.     if i<>n and nivSon[i]>102 then
  27.       sound(i).volume = 110
  28.     end if
  29.   end repeat
  30. end joueSonMP3
  31.  
  32. on mascotteParle son
  33.   masquerPistes pisteFondMascotte+1
  34.   afficherPistes pisteFondMascotte+4
  35.   jouesonMP3 son & suffixeLangue()
  36. end